home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINPROGS / CTL3DPAS.ZIP / CTL3DV2.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-04  |  3KB  |  74 lines
  1. (**************************************************)
  2. (*                                                *)
  3. (*   Unit CTL3DV2 - Version 2.0                   *)
  4. (*                                                *)
  5. (*   for use with CTL3DV2.DLL from Microsoft      *)
  6. (*                                                *)
  7. (*   Supplied by Andreas Furrer                   *)
  8. (*                                                *)
  9. (**************************************************)
  10.  
  11. unit Ctl3DV2;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. (* Ctl3dSubclassDlg3d flags *)
  18. const Ctl3d_Buttons      = $0001;
  19.       Ctl3d_Listboxes    = $0002;
  20.       Ctl3d_Edits        = $0004;
  21.       Ctl3d_Combos       = $0008;
  22.       Ctl3d_StaticTexts  = $0010;
  23.       Ctl3d_StaticFrames = $0020;
  24.       Ctl3d_NoDlgWindow  = $00010000;
  25.  
  26.       Ctl3d_All          = $ffff;
  27.  
  28.  
  29. const wm_DlgBorder       = wm_User+3567;
  30.       (* WM_DLGBORDER PInteger(lParam)^ return codes *)
  31.       Ctl3d_NoBorder     = 0;
  32.       Ctl3d_Border       = 1;
  33.  
  34.       wm_DlgSubclass     = wm_User+3568;
  35.       (* WM_DLGSUBCLASS PInteger(lParam)^ return codes *)
  36.       Ctl3d_NoSubclass   = 0;
  37.       Ctl3d_Subclass     = 1;
  38.  
  39.  
  40. function Ctl3dSubclassDlg(HWindow : HWnd; GrBits : word) : bool;
  41. function Ctl3dSubclassDlgEx(HWindow : HWnd; GrBits : longint) : bool;
  42. function Ctl3dGetVer : word;
  43. function Ctl3dEnabled : bool;
  44. function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush; {ARCHAIC, use Ctl3dCtlColorEx}
  45. function Ctl3dCtlColorEx(Message, wParam : word; lParam : longint) : HBrush;
  46. function Ctl3dColorChange : bool;
  47. function Ctl3dSubclassCtl(HWindow : HWnd) : bool;
  48. function Ctl3dDlgFramePaint(HWindow : HWnd; Message, wParam : word; lParam : longint) : longint;
  49. function Ctl3dAutoSubclass(Instance : THandle) : bool;
  50. function Ctl3dRegister(Instance : THandle) : bool;
  51. function Ctl3dUnregister(Instance : THandle) : bool;
  52. (* begin DBCS: far east short cut key support *)
  53. procedure Ctl3dWinIniChange;
  54. (* end DBCS *)
  55.  
  56.  
  57. implementation
  58.  
  59. function  Ctl3dGetVer;       external 'Ctl3dV2' index 1;
  60. function  Ctl3dSubclassDlg;  external 'Ctl3dV2' index 2;
  61. function  Ctl3dSubclassCtl;  external 'Ctl3dV2' index 3;
  62. function  Ctl3dCtlColor;     external 'Ctl3dV2' index 4;
  63. function  Ctl3dEnabled;      external 'Ctl3dV2' index 5;
  64. function  Ctl3dColorChange;  external 'Ctl3dV2' index 6;
  65. function  Ctl3dRegister;     external 'Ctl3dV2' index 12;
  66. function  Ctl3dUnregister;   external 'Ctl3dV2' index 13;
  67. function  Ctl3dAutoSubclass; external 'Ctl3dV2' index 16;
  68. function  Ctl3dCtlColorEx;   external 'Ctl3dV2' index 18;
  69. function  Ctl3dDlgFramePaint;external 'Ctl3dV2' index 20;
  70. function  Ctl3dSubclassDlgEx;external 'Ctl3dV2' index 21;
  71. procedure Ctl3dWinIniChange ;external 'Ctl3dV2' index 22;
  72.  
  73. end.
  74.